rm(list = ls())
gc()

library(tidyverse)
library(readr)
library(readxl)
library(writexl)
library(janitor)
library(dtplyr) ## use lazy_dt() for faster transformations
library(data.table)
library(ggplot2)
library(lubridate) ## the date package used
library(stringr)
library(ipumsr)
library(haven)
library(ggrepel)
library(labelled)
library(purrr)
library(DescTools)
library(dplyr)

colors <- c("#DE3163","#40E0D0","#FF7F50","#6495ED","#FFBF00",
            "#9FE2BF", "#DFFF00" , "#CCCCFF", "#900C3F")

#### setting the directories for data and outputs ##########
main_dir <- "V:/Derenoncourt/replication/"
project_dir <- "V:/Derenoncourt/replication/"
setwd(main_dir)